home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / www / IBrowseScripts.lha / ibrowsescripts / rexx / Quitnet.ibrx < prev    next >
Text File  |  1998-11-04  |  950b  |  28 lines
  1. /*  $VER: quitnet.ibrx 1.0     
  2.     Made by Sören Forsberg : sorenf@hem1.passagen.se
  3.   
  4. */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. say show('Ports')
  9. IF EXISTS('ibrowse:rexx/busywin') THEN ADDRESS "COMMAND" 'run ibrowse:rexx/busywin OFF'
  10. IF show('Ports','STRICQ.1') THEN ADDRESS 'STRICQ.1' 'QUIT'
  11.  
  12. IF show('Ports','AMIRC.1') THEN ADDRESS 'AMIRC.1' 'QUIT'
  13. IF show('Ports','AMIRC.2') THEN ADDRESS 'AMIRC.2' 'QUIT'
  14. IF show('Ports','AMIRC.3') THEN ADDRESS 'AMIRC.3' 'QUIT'
  15. IF show('Ports','AMIRC.4') THEN ADDRESS 'AMIRC.4' 'QUIT'
  16. IF show('Ports','AMIRC.5') THEN ADDRESS 'AMIRC.5' 'QUIT'
  17. IF show('Ports','AMIRC.6') THEN ADDRESS 'AMIRC.6' 'QUIT'
  18. IF show('Ports','AMIRC.7') THEN ADDRESS 'AMIRC.7' 'QUIT'
  19. IF show('Ports','AMIRC.8') THEN ADDRESS 'AMIRC.8' 'QUIT'
  20.  
  21.  
  22. IF show('Ports','MIAMI.1') THEN ADDRESS 'MIAMI.1' 'QUIT'
  23.  
  24. IF show('Ports','IBROWSE') THEN ADDRESS 'IBROWSE' 'QUIT'
  25.  
  26. IF show('Ports','YAM') THEN ADDRESS 'YAM' 'QUIT'
  27.  
  28. IF show('Ports','AMFTP.1') THEN ADDRESS 'AMFTP.1' 'QUIT'